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ABSTRACT' 

The nature of "A Programing Language" (APL) is viewed 
as unambiguous, consistent, and powerful. It is based on the notion 
.of functions as imperative verbs, and is used by a small but growing 
number or mathematicians and computer programers. Three area's of 
mathematical activity are addressed: calculation of arithmetic 
expressions, evaluation of algebraic formulas, and computation of 
algebraic processes. The uses of APL in each of these areas is 
illustrated by elementary examples. Because of its design as a 
language rich in primitive functions, with extensions created by 
operators and user-defined functions, APL is seen as a powerful tool 
for mathematical exposition. (MP) 
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VERBALIZING MATHEMATICS USING APL 
George E. Matthews 
Associate Professor of Mathematics 
Onondaga Community College 
Syracuse, New York 

If mathematics is something that people do, then math- 
ematical exposition should be rich in verb forms. However, 
conventional algebraic notation is better suited for des- 
cribing static results than for dynamic processes. 

APL (an acronym for A Programming Language) is a modern 
mathematical notation that is unambiguous, consistent and 
powerful. Furthermore, it is based on the noticn of functions 
as Imperative verbs. As such, it is an effective means of 
communication for both people and computers. Created by the 
mathematician Kenneth Iverson and published in 1962, APL now 
is used Ly a small but growing number of mathematicians and 
computer programmers; 

* * 

This, paper addresses three areas of mathematical activity: 
calculation of arithmetic expressions, evaluation of algebraic 
formulas, and computation or algebraic processes. The uses of 
APL in each of these areas is illustrated by elementary examples 



OVERVIEW OF A PL 

A few comments will suffice to characterize APL for those 
who are not familiar *ith its design^ Further details can be 
found in works such as (Falkoff and Iverson, 1973), (Gilman and 
Rose, 1976), (Iverson, 1972 a and b), and (Peelle, 1979): 

APL may be viewed as an alternative mathematical notation 
that is directly executable on machines (computers). It is 
structured like a "natural" algorithmic language, with functions 
serving as verbs, constants as its nouns and variables as its 
pronouns . 

APL uses arrays of constants as basic data, it has a com- 
prehensive set of primitive functions, and uses operators and 
user-defined functions to* the scope of the defined 

symbols. There is virtuall. restriction on choices of names 
for functions or variables in APL. 

All functions in APL are treated alike, in a right-to-left, 
arithmetic syntax; parentheses are needed only for expressions 
used as left-hand inputs. Statements in APL result in either 
.assignment of values to named storage, branching to another 
numbered- statement, or display of computed results. 

APL uses many familiar symbols from conventional algebra 
but regularizes their synta* and assigns special meaning? for 
both familiar and new symbols. The consistent form of all 
function usage in APL results in concise expressions that are 
easy to comprehend once initial familiarity is achieved. The 
points mentioned above can best be seen through specific 
examples. 

. . ' 3 



ARITHMETIC CALCULATIONS 

The basic operations of arithmetic (addition, subtraction, 
multiplication,' division, and exponentiation) are viewed as 
functions' with two inputs. Any expression containing such 
arithmetic symbols is viewed as a directive to calculate a value. 
Thus 2 ♦ 3 is 5, 3 * * is 12, and 2 * 5 is_ 32. 

If an expression appears on the right side of a function 
symbol, it is evaluated before the left input (if any). As 
usual, parentheses can be used to alter this built-in-order of 
operations. Hence 2 ♦ S .« * is if and (2 ♦ 3) x » is 20 
and * x 2 ♦ 3 is also 20. 

APL adopts this simple and uniform order of operations so 
that the great number of functions defined in APL can be used 
easily, without regard to complicated rules of precedence or 
heavy use of parentheses. The symbols for the basic operations 
are also used for related single-input functions; additional 
useful arithmetic functions' are also defined, as shown in figure 1. 
The single-input functions are called monadic and the functions . 
with two arguments are called dyadic . » 



ARITHMETIC SYMBOLS ill APL 



♦ Identity, 
- Negation, 
x Signum, 



Addition 

Subtraction 

Multiplication 



« Reciprocal, Division 

* Power of e, Exponentiation 

e JtaturiJ log, Logarithmic 



r Ceiling , 

L Floor , 

! Factorial , 

| Magnitude , 

o Pi times, 



Maximum 
'inimum 
' Binomial 
Residue 
Circular, etc 



Matrix inverse, Matrix divide 



„ Figure 1. Monadic and dyadic arithmetic functions. 



Por example, If the subtraction sign is also used for 
negation, then obviously the division sign may be used for 
reciprocals. Thus - t is "l and ♦ n is .0.25. The vertical % 
line is used for absolute value as in I "5 which is 5 and 
for division remainder as in 3 I 14 which is 2. Factorial 
three is written ! 3 and two pi is written o 2. The square ? 
root of three may be represented as 3 * * 2 , in a manner 
which easily extends to any desired root. 

% 

With the full complement of propositlonal (logical and* 
relational) functions useable in APL, it is possible to make 
arithmetic statements without using ad&itional notations out- 
side APL* For example, 0 * 3114 means thtife 3 is not an exact 
divisor of m. Conditional valuations can also* be expressed 
directly as in 3 + 2 x i» < j, which is 3 + 2 if * 1st less than 
X, otherwise it Is just 3 . More examples of this sort -will be 
illustrated in the sequel. , <* 

By far the greatest attribute of APL is jits handling of 
arrays (lists, tables, etc.). All of the elementary functions ^ 
extend to arrays on an element-by-element basis. Thus M 2 
is 1 0.5 0.25, 2*13* is 2 6 ,8, 3 2 + * 6 is 7 8. Note 
that single numbers are extended as needed to match the array. 

o 

Special array-based functions are defined in APL to provide 
ease in generating, manipulating, and restructuring arrays; such 
functions are called mixed functions. Additionally, the use of 
operators, which extend the scope of the arithmetic and propo- 
sitional functions, allows concise expression* of simple ideas. 



•The arithmetic mean provides an example: If *X is a list of 
numbers, then ♦/ X is the sum of these n'unbers and pX is the 
count of these numbers. The former expression uses the reduction 
operator and the latter uses the mixed. function shape . Thus 
( ♦"/ X) + p X ie the simple arithmetic mean. See figure 2 for 
specific cases of the simple mean, weighted mean, and mean of 
selected scores. 



ARITHMETIC MEANS IN APL 



«*05 
5 



X «-,78 90 83 75 79 
+/X 

<+/X) * pX 



81 

A SIMPLE MEAN 



SCORES «- 8<+ 78 90 83 79 
> WTS «- 2 1 1 1 1 
. UTS x SCORES 
168 78 90 83 79 

<*/UTS x SCORES) * +/UTS 

83 

I ft . WEIGHTED MEAN 

X «- 78 90 83 75 79 
HIGHEST<+ <- ■+ t XC9X3 
8t , HIGHEST 1 * 
84 90 83 79 78 

(♦/UTS x 8<+ '. HIGHEST^) + +/UTS 

83 

ft ^ ADJUSTED MEAN 



ft FIGURE 2. EXAMPLES OF OPERATORS AND MIXED FUNCTIONS 



The expression for the adjusted mean shown in figure 2 could 
be read as "SUM WEIGHTS TIMES 81 WITH 4 HIGHEST X all OVER SUM WEIGHTS." 



The underlined words represent the dynamic 'parts of the expression 
and correspond to operators (SUM), APL primitives ( TIMES , WITH , 
OVER), and a user-defined function (HIGHEST). Appropriate defi- 
nitions of APL programs for these verbs, are shown in Appendix two 
and explained later. Also, illustrated in the above expressions 
are the pronouns (variables) WEIGHTS and X, the nouns (constants) 
git and i», and the use or "all" to denote the required parentheses 

ALGEBRAIC EVALUATIONS 

In the arithmetic calculations Just cited, the variables were 
merely convenient names for specific constants. More generally, 
variables are used to represent indetermi nates (parameters or 
unknowns) in algebraic fprmulas. 

In a sense, such formulas represent hypothetical statements 
that have meaning (value) only when certain other information is - 
given. APL has a convenient way to represent 'such formulas as 
character strings which can be evaluated later using the built- 
in E xecute function. 

The statistical variance of a list of data, defined as the 
mean squared deviations from the mean, can be represented by 
various formulas. A literal translation of the definition into 
APL is easy but not very readable. Note the triply-nested 
parentheses shown in the first formula in figure 3, with division 
being the final function performed. 

A simpler computational formula expresses variance as the 
mean of the squares minus the square of the mean. This formula . 
has only doubly-nested parentheses, with subtraction being the 
final function performed; 



EVALUATING STATISTICAL VARIANCE 

Fl «■ * <♦/ (X - (*/XX + pX> » 2) * pX ' . 

F2 «• * < <-»-/X * 2> + pX> - < (*/X) * pX) * 2 * 

X «■ 2 U 8 10 12 1<( 
* Fl 

16 

A F2 

16 

• ■ X *> 7 9*6 8 8 
« * Fl 

1.<W 8 
4 F2 

1 ••■» 

A FIGURE 3. EXAMPLES OF FORMULAS' AS A PL STRINGS 

The formula in any case is enclosed in quotes, which mean 
that the symbols therein are characters without 5 intrinsic 
meaning or value. The Execute function, denoted by «. , has the 
effect of stripping off the quotes and interpreting the string 
as if it were a statement directly entered by the user. This 
system allows several formulas to be stored as named character 
strings for later ''recall and evaluation. Such strings may 
contain functions, constants and variables as desired. After 
appropriate values have. been specified for the variables, the 
formulas can be evaluated. 

A common algebraic activity is graphing functions. Figure 4 
shows a manner of graphing the function (X - a)(X - $) on the 
domain of 1,2,3,4,5,6,7 . The technique involves character 
strings, the Execute function, the outer product operator, and 

fl 

Indexing. The details need not concern us here, for. the example is 

tended merely to illustrate the scope of algebraic ^evaluations in 

t " 



GRAPHINGyALGEBI FUNCTIONS 



F «■ * (X-3) x X-5 * 
XM23U67 
M F 
8 3 0 "1 0 3 8 

(0 ■ i F) / X 

3 5 

D > RANGE «■ 9 - 1 10 
B 7 6 5 U 2 1 0 *1 - 

(10 2 P i RANGE) » ' ** C 1 ♦ RANGE •.=Y3 

8 « * 

7 
6 
5 
«♦ 

3 * * 

*~ * 

1 

o * # 

*i * 



a FIGURE »f. USING OUTER PRODUCT TO INDEX A SYhBOL STRING 



Inasmuch as algebraic identities constitute a major interest in 
mathematics, it is appropriate to illustrate the use of APL in alge- 
braic proofs. Figure 5 shows a proof that the sum of n integers 
starting from 1 equals half the product of n with n + 1 . Each state- 
ment on the left is equivalent to the preceding statement for the 
reason stated on its right f ^Theorems such as this can be "checked" "by 
executing the statements for specific choices of n. A* a result, an 
APL proof can be more copvincing than a mere abstract argument. 

ft PROVING IDENTITIES IN APL 



♦/ * \H 
< <+/\N) ♦ <+/«\N> > * 2 
(♦/ < \H) <JMN> ) + 2 
<♦/ N p N+l) 2 • 
< <N+1) x N) + 2 



DEFINED FOR FINITE N 

♦ IS ASSOC & COMM 
X «■-» (X ♦ X) + 2 

♦ IS ASSOC & COMM 
LEMMA 

DEF OF x 



ft FIGURE 3. EXAMPLE OF AN APL PROOF 



A LGORITHMIC COMPUTATIONS 

f 

The uses of APL Illustrated in the foregoing are all for 
immediate execution on the' computer. Nevertheless, most APL 
users see it as primarily a programming , language , useful, for ' 
writing stored programs. Much of mathematics involves algorithmic 
processes ; APL can be invaluable for defining and exploring such 
procedures. „ 



An example of an interactive program is shown in figure 6. 
This program illustrates the structure and use of APL programs , 
specifically a monadic user-defined function with explicit result. 
Lines, 1-6 constitute a loop, where the successive iterations are 
performed. Computer programmers will note tne use of leading 
decision. in line 4 and unconditional branching in line 6. -Although 
APL is sometimes criticized for lacking built-in logic control 
structures, they ^an be simulated as heeded or obviated'by aporop- 
riate primitives and operators. 



NEWTON'S METHOD FOR SQUARE ROOT' 



V ANS <- FINDROOT N ;Q ;EPS 
C13 EPS «■ 0 .0001 
C23 ' GUESS-' 
C33 ' G «• Q 

C«0 T.ST : •+ (EPS > IN'- G«2) / DUN 
C53 G H,5 x G + N t G, 
C63 •* TST 

C73 DUN : ANS «- G - * 
CB3 V 

FINDROOT 72.25 

GUESS 

Di 

8 

8.5 



* FIGURE 6. COMPUTING SQUARE ROOT BY ITERATION 



* The , earlier . reference to a procedure for finding a weighted 
mean can now be more fully explained. * (See figure 2). The 
process, of addirijg numbers is represented in APL by the plus 
reduction cff a list> for example, +/ 78 90 83 75 79 is the same 
as 78+90+83+75+7*3 v.hich is 405. An alternative to usiftg the 
symbols +/ is using a •familiar verb such as SUM , after having 
defined its meaning in APL. (See Appendix two). / * 

The verbs TIMES , WITH , O VER are actually the APL primitive 
functions Multiply , Join, and Divide. As shown in Appendix two, 
they can be given arbitrary names by means of appropriate programs. 
Incidentally, the underlining used for these verbs is a stylistic 
device and is not required. 

Finally, the function HIGHEST is a dyadic user-defined function 
with -explicit result*. It uoes three APL primitives Gt*ade down, 

Indexing, and Take. It is the first function to be, executed in the 

« 

expression within parentheses. 

The expression (SUM WEIGHTS TIMES 84 WITH ; 4 HIGHEST X) OVER- 

* * * 

SUM WEIGHTS will produce the results as shown ,in Appendix* two, if 
the verbs and pronouns have 4 been -given meanings as shown. Further 
detai\ on programming uses of APL can be found in (Gilman and Rose, 
1976), (Harms and Zabinski, 1977), and (Lefage* 1978). ' «. 



Conclusion 

The thrust of this paper has been illustrating the 
•dynamic aspect of mathematical. expressions. Appendix three 
contains a comprehensive list <of verb forms associated with 
APL primitives* Because of its design as a language rich in 
primitive functions, with extensions created by operators and 
user-defined functions, APL is a. powerful tool for math- 
ematical exposition. 
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' A APPENDIX TWO SOME APL PROGRAMS 



7 R «■ SUM LIST 

• C13 R «■ «•/ LIST 

• C23 7 

7 R «■ X TIMES Y 
C13 R «■ X * Y 
C23 7 

» • 7 R «■ X WITH Y 

> C13 R * X • Y 

• C23 7 

7 R «■ X OVER Y 

• 111 R «■ X * Y 
C23 7 

« • 7 R «■ M HIGHEST X 

1 C13 R «- N t XC7X3 
' C23 7 

WEIGHTS *■ 2 1,1 1 1 
X t- 78 90 83 75 79 

» • (SUM WEIGHTS TIMES 8«+ WITH ••• HIGHEST X> OVER SUM WEIGHTS 

83 ~ 7 
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APPENDIX THREE---APL PRIHITIVES (Basic verbs) 



< is lass than 

* is not greater than 

» is equal to 

v logically or 

a logically and 



> 
* 



is not less than 
is greater than 
is not equal to 
logically negate 
logically nor 
logically nand 



identity, add 

signum, multiply 

power of e, exponentiate 

ceiling, take maximum 

factorial, binomial 

pi times, take sine, etc. 



* opposite, subtract 

* reciprocal, divide 

* natural log, logarithm 
I floot, take minimum 

I magnitude, take residue 

ffl matrix inverse, matrix divide 



i 
\ 



4 



specify 

take from array 

locate first, index, count up 

expand array 

shape cf , reshape 

* 

decode 

execute 

grade down 

flip, spin 

transpose . section 



4 is a member of 

♦ drop from array 
[] index array 

/ compress array 

. ravel, join arrays 

t encode 

▼ format characters, format precision 

4" grade up 

♦ reverse, rotate 



? roll once, deal vector 



t 
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